﻿! name: double grille 24.04.1989.
! internal macro: -

k=1"	

if d<=1 then 10

x=(a-(d-1)*k)/d											
for i=1 to d-1
addx x*i+k*(i-1)
brick k,b,c
del 1
next i

let y=(b-(e-1)*k)/e
for i=1 to d
addx x*(i-1)+k*(i-1)
for j=1 to e-1
addy y*j+k*(j-1)
brick x,k,c
del 1
next j
del 1
next i
goto 20
10: 
if e<=1 then 20
let y=b/e
for i=1 to e-1
addy y*i-k/2
brick a,k,c-0.0005
del 1
next i
20: end
